Developer CD Series 1992 June: ROMin Holiday

home *** CD-ROM | disk | FTP | other *** search

/ Developer CD Series 1992 June: ROMin Holiday / ADC Developer CD (1992-06) (''ROMin Holiday'')_iso / Developer Connection - 06-1992.iso / Development Platforms / Apple II / Apple II Sample Code / MPW IIGS SC / SC.012.Menus / menus.aii < prev next >

Wrap

Text File | 1990-06-24 | 27.8 KB | 1,227 lines | [TEXT/MPS ]

******************************************************************************* * * Menus -- Version 3.0 * * (C) Copyright Apple Computer, Inc. 1988-1990 * All rights reserved. * * Developer Technical Support Apple II Sample Code * * by Jim Mensch * * Sample Application that demonstrates the use of many menu manager * calls. It Shows how to add or remove whole menus or menu items, and how to * manipulate existing items. * It also demonstrates how to create a custom menu and handle user * interactions with it. The custom menu can be removed from this program and * incorporated inside your own applications. The custom menu is a color menu * that allows the user to select one of 4 colors. * ******************************************************************************* eject ********************************************************************** * * * This program and its derivatives are licensed only for * * use on Apple computers. * * * * Works based on this program must contain and * * conspicuously display this notice. * * * * This software is provided for your evaluation and to * * assist you in developing software for the Apple IIGS * * computer. * * * * DISCLAIMER OF WARRANTY * * * * THE SOFTWARE IS PROVIDED "AS IS" WITHOUT * * WARRANTY OF ANY KIND, EITHER EXPRESS OR IMPLIED, * * WITH RESPECT TO ITS MERCHANTABILITY OR ITS FITNESS * * FOR ANY PARTICULAR PURPOSE. THE ENTIRE RISK AS TO * * THE QUALITY AND PERFORMANCE OF THE SOFTWARE IS WITH * * YOU. SHOULD THE SOFTWARE PROVE DEFECTIVE, YOU (AND * * NOT APPLE OR AN APPLE AUTHORIZED REPRESENTATIVE) * * ASSUME THE ENTIRE COST OF ALL NECESSARY SERVICING, * * REPAIR OR CORRECTION. * * * * Apple does not warrant that the functions * * contained in the Software will meet your requirements * * or that the operation of the Software will be * * uninterrupted or error free or that defects in the * * Software will be corrected. * * * * SOME STATES DO NOT ALLOW THE EXCLUSION * * OF IMPLIED WARRANTIES, SO THE ABOVE EXCLUSION MAY * * NOT APPLY TO YOU. THIS WARRANTY GIVES YOU SPECIFIC * * LEGAL RIGHTS AND YOU MAY ALSO HAVE OTHER RIGHTS * * WHICH VARY FROM STATE TO STATE. * * * * * ********************************************************************** case on PRINT NOHDR,NOGEN STRING AsIS PRINT PUSH,OFF INCLUDE 'M16.Util' INCLUDE 'M16.ProDOS' INCLUDE 'M16.QUICKDRAW' Include 'M16.QDAux' Include 'E16.Quickdraw' INCLUDE 'M16.MEMORY' Include 'E16.Memory' INCLUDE 'M16.EVENT' INCLUDE 'E16.Event' INCLUDE 'M16.LOCATOR' INCLUDE 'M16.MISCTOOL' INCLUDE 'M16.TextTOOL' INCLUDE 'E16.Menu' INCLUDE 'M16.Menu' INCLUDE 'M16.Control' INCLUDE 'M16.Window' INCLUDE 'E16.Window' INCLUDE 'M16.Dialog' Include 'E16.Dialog' INCLUDE 'M16.LineEdit' INCLUDE 'M16.IntMath' INCLUDE 'M16.Scrap' INCLUDE 'M16.Desk' InCLUDE 'M16.list' PRINT POP DPHandle equ 0 DPPointer equ DPHandle+4 DeRef equ DPPointer+4 LastTick equ 10 temp1 equ 12 temp2 equ 14 LinePt equ 16 ScreenTab equ 20 CustomMHandle equ 24 CustomMPtr equ 28 MarkItem equ 258 testINum equ 267 AddMenuItem equ 263 DelMenuItem equ 265 AddAMenu equ 264 DelAMenu equ 266 CMenuNums equ 273 ScreenMode equ mode320 ScreenWidth equ 320 ; menu record offsets MRMenuFlag equ $0A MRMenuTWidth equ $0E MRMenuTPtr equ $10 EJECT ******************************************************************************* * Menus PROC * * Description: Main code of the program. This routine calls all the other * main program parts in order. * * * Inputs: None * * Outputs: None * * External Refs: Import QuitParms Import InitTools Import InitApp Import EventLoop Import CloseTools * * Entry Points: * ******************************************************************************* jsr InitTools jsr InitApp _ShowCursor jsr EventLoop jsr CloseTools _Quit QuitParms EndP EJECT ******************************************************************************* * Globals Record * * Description: This area contains data used in all routines of the program * it also contains some data structures used by Menus.Init * * * Inputs: None * * Outputs: None * * External Refs: Export QuitParms Import CustomMenu * * Entry Points: * ******************************************************************************* * * standard global data here * ******************************************************************************* TitleString str 'Apple IIgs Menus Demo' AutString str 'By Mensch / Copyright (c)' CRString str '1988-1990 Apple Computer' VersString str 'Version: 3.0' MenuHeight ds.b 2 ; Stored height of menu bar MyID ds.b 2 ; application ID MyDP ds.b 2 ; My zero page storage QuitFlag ds.w 1 QuitParms dc.l 0 ; Pathname of next app dc.w $00 ; flags EventRecord EventWhat ds.b 2 EventMessage ds.b 4 EventWhen ds.b 4 EventWhere ds.b 4 EventModifiers ds.b 2 TaskData ds.b 4 TaskMask dc.l $0000FFFF * * Application specific data goes here * AppMenu dc.b '$$@\XN1',$0D dc.b '--About Menus...\N256V',$0D dc.b '.' FileMenu dc.b '$$ File \N2',$0D dc.b '--Quit\N257*Qq',$0D dc.b '.' MenuMenu dc.b '$$ Actions \N3',$0D dc.b '--Mark Item\N258*Cc',$0D dc.b '--Set Blinks\N259',$0D dc.b '--Change Test Item Text\N260',$0D dc.b '--Disable Test Item\N261',$0D dc.b '--Enable Test Item\N262',$0D dc.b '--Add a Menu Item\N263',$0D dc.b '--Add a Menu\N264D',$0D dc.b '--Delete a Menu Item\N265D',$0D dc.b '--Delete a Menu\N266V',$0D dc.b '--Test Item\N267',$0D dc.b '.' CMDTitle dc.b '$$ Custom \N5',$0D,$00 dc.b '.' TestMenu dc.b '$$ Test \N4',$0D dc.b '--Normal\N268',$0d dc.b '--Bold\N269B',$0D dc.b '--Disabled\N270D',$0d dc.b '--Italics\N271I',$0d dc.b '--Color Replace Highlight\N272X',$0d dc.b '.' Rect ds.b 8 MyRect ds.b 8 TestMHandle ds.b 4 CMDMenuProc dc.l CustomMenu ; custom menu proc PatTable dc.l MyPattern1,MyPattern2,MyPattern3,MyPattern4 MyPattern1 dc.b $55,$55,$55,$55 ; patterns used by the custom menu dc.b $55,$55,$55,$55 ; when the user selects a color dc.b $55,$55,$55,$55 ; these are the patterns that are dc.b $55,$55,$55,$55 ; used to set the menu bar color dc.b $55,$55,$55,$55 dc.b $55,$55,$55,$55 dc.b $55,$55,$55,$55 dc.b $55,$55,$55,$55 MyPattern2 dc.b $77,$77,$77,$77 dc.b $77,$77,$77,$77 dc.b $77,$77,$77,$77 dc.b $77,$77,$77,$77 dc.b $77,$77,$77,$77 dc.b $77,$77,$77,$77 dc.b $77,$77,$77,$77 dc.b $77,$77,$77,$77 MyPattern3 dc.b $44,$44,$44,$44 dc.b $44,$44,$44,$44 dc.b $44,$44,$44,$44 dc.b $44,$44,$44,$44 dc.b $44,$44,$44,$44 dc.b $44,$44,$44,$44 dc.b $44,$44,$44,$44 dc.b $44,$44,$44,$44 MyPattern4 dc.b $22,$22,$22,$22 dc.b $22,$22,$22,$22 dc.b $22,$22,$22,$22 dc.b $22,$22,$22,$22 dc.b $22,$22,$22,$22 dc.b $22,$22,$22,$22 dc.b $22,$22,$22,$22 dc.b $22,$22,$22,$22 EndR EJECT ******************************************************************************* * CustomMenu PROC * * Description: This is the whole custom menu routine. This routine takes care * of all drawing and selecting of the custom menu. It starts out * with a dispatch routine to dispatch the operations the menu * manager requests. * * * Inputs: None * * Outputs: None * * External Refs: None * * Entry Points: None * ******************************************************************************* with Globals local equ 8 ; number of bytes of local stack frame Temp equ $01 mPtr equ $04 RetAddr equ $01+local ; stack frame constants MenuParam equ $04+local yHitPt equ $06+local xHitPt equ $08+local rectPtr equ $0A+local mHandle equ $0E+local menuMessage equ $12+local Result equ $14+local MaxItems equ 5 ; number of menu items +1 CMenuWidth equ 50 ; menu is 50 x 50 pixels CMenuHeight equ 50 tdc ; save the DPage sta >tempDPage ; to a temp value tsc ; get the stack pointer sta >tempStack ; and save it... sec sbc #local ; add in our temp data storage tcs ; set it as the stack pointer tcd ; and as the Dpage register phb ; save the data bank register phk ; and switch to current bank plb stz Result ; zero out result ahead of time lda [mHandle] ; dereference the menu handle sta mPtr ldy #2 lda [mHandle],y sta mPtr+2 lda menuMessage ; now handle the message asl a tax jmp (CMJumpTab,x) CMenuDone plb ; restore the data bank register lda >tempDPage ; restore Dpage tcd lda >tempStack ; restore stack pointer tcs ShortM ; now discard parameter list pla ; save the return address in a and X plx ply ; discard all the parameters ply ply ply ply ply ply ply phx ; restore the return addres previously saved pha LongM rtl * * CMGetID - accepts a menu internal ID number and converts it into an * application menu ID number. This is the number that is given * to the application by taskmaster when you have completed * your menu selection. * CMGetID lda MenuParam ; get the internal item ID clc ; and add application offset to adc #CMenuNums ; create actual item number sta Result ; save the result brl CMenuDone ; and return back to dispatch routine * * CMDrawI - Called when the menu manager wants to Hilight/unhilight a * menu item in your menu ( when mouse is dragged onto or off * of the item ) This routine calls either DrawItem or HilighItem * depending on the request * CMDrawI lda MenuParam ; get the number bmi CMDIHiLite ; if high bit set then highlite jsr DrawItem ; else just draw it brl CMenuDone CMDIHiLite and #$7FFF ; strip the high bit jsr InvertItem brl CMenuDone * * CMDrawT - The menu manager asks for this call when it is drawing the * menu title. I want the menu manager to draw my title * so I just pass back a false result and the menu mgr handles * it for me CMDrawT stz Result ; false to have menu mgr do this... brl CMenuDone * * CMSize - Calculate values for menuWidth and menuHeight in the menu record * CMSize ldy #omenuWidth ; offset into menu record lda [mPtr],y ; get the width parameter bne CMS0010 ; if non-zero do not change the value lda #CMenuWidth ; save # of pixels wide sta [mPtr],y CMS0010 ldy #omenuHeight ; offset into menu record for height lda [mPtr],y ; load the height bne CMS0020 ; if non-zero do not change them lda #CMenuHeight sta [mPtr],y CMS0020 brl CMenuDone * * CMChoose - Routine called when user mouse location changes. This routine * should return in the result the internal ID number of the * item the mouse point is currently over. If no item selected * leave the result alone. * CMChoose lda #1 ; initialize the counter at 1 sta itemTemp ; This will count thru each menu item to test CMC0010 lda itemTemp ; get the item number to test cmp #MaxItems ; are we done yet??? bge CMCDone ; if so then quit... jsr TestHit ; test each item for a hit bne CMCHit ; if non-zero got a hit inc itemTemp ; bump the counter bra CMC0010 ; and try the next item CMCHit lda itemTemp ; got a hit so return the number ora #$8000 ; set high order bit to flag as selected sta Result ; and save it as the result CMCDone brl CMenuDone ; and leave * * CMDraw - This routine draws the contents of the custom menu when the * menu is first selected. * CMDraw lda #1 ; draw item 1 jsr DrawItem lda #2 jsr DrawItem lda #3 jsr DrawItem lda #4 jsr DrawItem brl CMenuDone * * SetUpRect - sets tempRect equal to the rectangle of the custom menu item * in <A>. This routine is used by drawItem,InvertItem and TestHit * SetUpRect dec a ; item numbers based off of 1 not 0 asl a ; item number *8 for offset into rect table asl a asl a tax ; place it in x to use as an index ldy #2 ; get values to offset rectangle by lda [rectPtr],y ; wmgr rectangle left sta tempPt+2 ; and save it for use later lda [rectPtr] ; now get the top sta tempPt lda MyRect1,x ; load in the top clc ; and add the offset adc tempPt sta tempRect ; and store it lda MyRect1+2,x ; load in the left clc adc tempPt+2 ; offset it sta tempRect+2 lda MyRect1+4,x ; Load the bottom clc adc tempPt sta tempRect+4 lda MyRect1+6,x ; and finally the right clc adc tempPt+2 sta tempRect+6 rts * * DrawItem - Draw the menu item contained in A * DrawItem ; draws item specified by a sta itemTemp jsr SetUpRect PushLong #tempRect lda PatTable+2 ; get high word of pattern addr pha lda itemTemp ; push pattern ptr low byte dec a ; item# based from 1 not 0 asl a ; multiply by 4 and use it as a asl a ; table offset tax lda PatTable,x pha _FillRect rts * * InvertItem - Invert an Item to show it is selected * InvertItem jsr SetUpRect PushLong #tempRect _InvertRect rts * * TestHit - With an Item number passed in A test to see if * the cursor is over the Item. If so return true, if not return false * TestHit jsr SetUpRect ; create rectangle to test lda yHitPt ; create a point from the passed data sta tempPt ; since we must pass this data by pointer lda xHitPt ; to PtInRect, we must move the data from sta tempPt+2 ; the stack frame into temp storage PushWord #0 ; room for result PushLong #tempPt ; current cursor location PushLong #tempRect ; item rectangle to test _PtInRect pla ; return result in A rts * * Data storage area for the custom menu routine * tempStack ds.b 2 ; storage for Stack and Dpage registers tempDPage ds.b 2 CMJumpTab ; jump table for the dispatch routine dc.w CMDraw ; mDrawMenu routine dc.w CMChoose ; mChoose routine dc.w CMSize ; mSize routine dc.w CMDrawT ; mDrawTitle routine dc.w CMDrawI ; mDrawMItem Routine dc.w CMGetID ; mGetMItemID routine MyRect1 dc.w 3,3,23,23 ; rectangles for the 4 menu items MyRect2 dc.w 25,3,45,23 MyRect3 dc.w 3,25,23,45 MyRect4 dc.w 25,25,45,45 tempRect ds.b 8 ; temp rectangle to use in various places tempPt ds.b 4 ; temp point to use in various places itemTemp ds.b 2 endP EJECT ******************************************************************************* * InitApp PROC * * Description: Initialize my menu bar and the quit flags. This demonstrates how * to install a custom menu! * * * Inputs: None * * Outputs: None * * External Refs: import ColorSel * Entry Points: * ******************************************************************************* With Globals Stz QuitFlag ; initialize the quit flag PushLong #0 ; room for result PushLong #CMDTitle ; our custom menu _NewMenu ; now create a new menu lda 1,s ; get menu pointer for later use sta CustomMHandle ; while leaving them on the stack lda 3,s sta CustomMHandle+2 lda [CustomMHandle] ; dereference the menu handle sta CustomMPtr ldy #2 lda [CustomMHandle],y sta CustomMPtr+2 lda CMDMenuProc ; now fix it so that this is a cust menu ldy #omenuProc ; by setting the menu proc to point to sta [CustomMPtr],y ; our custom procedure lda CMDMenuProc+2 iny iny sta [CustomMPtr],y ldy #omenuFlag lda [CustomMPtr],y ora #menuCustom sta [CustomMPtr],y ; Set up custom menu info here .... PushWord #0 ; menu handle already on stack insert _InsertMenu ; it before all other menus PushLong #0 PushLong #TestMenu _NewMenu lda 1,s ; get menu pointer for later use sta TestMHandle ; and leave it on the stack lda 3,s sta TestMHandle+2 PushWord #0 _InsertMenu PushLong #0 PushLong #MenuMenu _NewMenu PushWord #0 _InsertMenu PushLong #0 PushLong #FileMenu _NewMenu PushWord #0 _InsertMenu PushLong #0 PushLong #AppMenu _NewMenu PushWord #0 _InsertMenu PushWord #1 ; Add NDA's _FixAppleMenu PushWord #0 _FixMenuBar Pla sta MenuHeight PushWord #$00F5 ; white-blue/red not selected colors PushWord #$0010 ; blue/red-black selected colors PushWord #$00E0 ; yellowgreen outline _SetBarColors ; now set the bar colors lda #274 ; Get the inverse color the the Apple sta TaskData ; Menu set up correctly. jsr ColorSel rts EndP EJECT ******************************************************************************* * EventLoop PROC * * Description: The event loop recieves events and dispatches them. When * the quitflag is non-zero, it exits. * * Inputs: None * * Outputs: None * * External Refs: Import MenuSelect Import Ignore * * Entry Points: * ******************************************************************************* With Globals PushWord #0 ; room for result PushWord #everyEvent ; handle all events PushLong #EventRecord ; place event data here _TaskMaster pla ; get the event type here beq EventLoop ; remove if you want to use null events asl A ; multiply by two tax ; and do a table dispatch just like menu select jsr (TaskTable,x) lda QuitFlag ; test to see if user selected quit beq EventLoop ; if not just go get another event rts ; if so, then end the event loop TaskTable dc.w Ignore ; 0 Null dc.w Ignore ; 1 MouseDown dc.w Ignore ; 2 Mouse Up dc.w Ignore ; 3 KeyDown dc.w Ignore ; 4 Undefined dc.w Ignore ; 5 AutoKey dc.w Ignore ; 6 Update dc.w Ignore ; 7 undefined dc.w Ignore ; 8 activate dc.w Ignore ; 9 Switch dc.w Ignore ; 10 desk acc dc.w Ignore ; 11 device driver dc.w Ignore ; 12 ap dc.w Ignore ; 13 ap dc.w Ignore ; 14 ap dc.w Ignore ; 15 ap dc.w Ignore ; TASK 0 indesk dc.w MenuSelect ; TASK 1 in menuBar dc.w Ignore ; TASK 2 in system window dc.w Ignore ; TASK 3 in content dc.w Ignore ; TASK 4 in Drag dc.w Ignore ; TASK 5 in grow dc.w Ignore ; TASK 6 in goaway dc.w Ignore ; TASK 7 in zoom dc.w Ignore ; TASK 8 in info bar dc.w Ignore ; TASK 9 in special menu dc.w Ignore ; TASK 10 in NDA dc.w Ignore ; TASK 11 in frame dc.w Ignore ; TASK 12 in drop EndP EJECT ******************************************************************************* * MenuSelect PROC * * Description: This routine is called when taskmaster returns * a menu event. This routine takes the menu item that * was hit and calculates an offset into the menu * dispatch table. It then calls that routine * * * Inputs: None * * Outputs: None * * External Refs: Import DoAbout Import DoQuit Import SetMark Import SetBlink Import SetName Import DisableIt Import EnableIt Import DoAdd Import DoAddM Import DoRemove Import DoRemoveM Import ColorSel Import Ignore * * Entry Points: * ******************************************************************************* With Globals lda TaskData ; get the menu number hit sec ; subtract 250 ( that is where our menu numbers sbc #256 ; start) asl a ; multiply it by 2 ( table has 2 byte entries ) tax ; use as an index jsr (menuTable,x) ; and jump to the routine to handle that item PushWord #0 ; unhilight the menu bar now PushWord TaskData+2 ; menu number that was hit _HiLiteMenu rts ; ; the menu table should contain one entry for each menu item ; menuTable dc.w DoAbout ; 256 About Menus dc.w DoQuit ; 257 Quit dc.w SetMark ; 258 Mark test item dc.w SetBlink ; 259 Set Blink rate dc.w SetName ; 260 Change test item text dc.w DisableIt ; 261 Disable test item dc.w EnableIt ; 262 enable test item dc.w DoAdd ; 263 add menu item dc.w DoAddM ; 264 add menu dc.w DoRemove ; 265 delete menu item dc.w DoRemoveM ; 266 delete menu dc.w Ignore ; 267 test item dc.w Ignore ; 268 normal dc.w Ignore ; 269 bold dc.w Ignore ; 270 disabled dc.w Ignore ; 271 italics dc.w Ignore ; 272 color replace dc.w Ignore ; 273 Not implemented dc.w ColorSel ; 274 color selection dc.w ColorSel ; 275 color selection dc.w ColorSel ; 276 color selection dc.w ColorSel ; 277 Color selection EndP EJECT ******************************************************************************* * SetMark PROC * * Description: Demonstrate how to Mark/UnMark an item. * * * Inputs: None * * Outputs: None * * External Refs: * * Entry Points: * ******************************************************************************* PushWord #0 ; room for result PushWord #MarkItem ; test menu item number _GetMItemMark pla ; get current mark status bne SMUnMark ; if not zero then unmark it PushWord #18 ; else mark with ascii 18 PushWord #MarkItem _SetMItemMark rts SMUnMark PushWord #0 ; Unmark the test item PushWord #MarkItem _SetMItemMark rts EndP EJECT ******************************************************************************* * EnableIt PROC * * Description: Demonstrate how to enable a menu item * * * Inputs: None * * Outputs: None * * External Refs: None * * Entry Points: * ******************************************************************************* PushWord #testINum _EnableMItem rts EndP ******************************************************************************* * DisableIt PROC * * Description: Demonstrate how to disable a menu item * * * Inputs: None * * Outputs: None * * External Refs: None * * Entry Points: None * ******************************************************************************* PushWord #testINum _DisableMItem rts EndP EJECT ******************************************************************************* * SetName PROC * * Description: Change the name of the test item. This routine will * toggle between the names 'Test Item' and 'Improved Test Item' * to show how to change an Item name. * * Inputs: None * * Outputs: None * * External Refs: * * Entry Points: * ******************************************************************************* lda NameFlag ; test state of current name if non then beq SN0010 ; name still original/ needs changing stz NameFlag ; zero name flag to denote alt name PushLong #NewName ; Set the new name PushWord #testINum _SetMItemName rts SN0010 lda #1 ; set flag to denote original item displayed sta NameFlag PushLong #OrigName PushWord #testINum _SetMItemName rts NewName str 'Improved test item' OrigName str 'Test Item' NameFlag dc.w 1 EndP EJECT ******************************************************************************* * SetBlink PROC * * Description: Changes the number of times selected menu items blink. * * * Inputs: None * * Outputs: None * * External Refs: * * Entry Points: * ******************************************************************************* PushWord BRate _SetMItemBlink lda BRate eor #$0003 ; xor with 3 to swap between 1 and 2 sta BRate rts BRate dc.w 1 ; the next blink rate EndP EJECT ******************************************************************************* * ColorSel PROC * * Description: This routine will be called when the user selects one of * the custom menu items. It will change the menu bar color * to the color selected by the user. * * * Inputs: TaskData - Menu item selected * * Outputs: None * * External Refs: None * * Entry Points: None * ******************************************************************************* With Globals lda TaskData ; get the menu number sec ; and make it a number between 0 and 3 sbc #CMenuNums+1 ; by subtracting the selection offset asl a ; multiply by 4 to use as a table offset asl a tax lda PatTable,x ; get address of pattern sta DeRef ; and use it as a pointer lda (DeRef) ; get the selected color and #$000F ; strip off high bytes ora #$00F0 ; set nibble to white pha ; set menu colors to white/selected color PushWord #$0040 ; blue/black selected colors PushWord #$0020 ; brown outline _SetBarColors _DrawMenuBar rts EndP EJECT ******************************************************************************* * Ignore PROC * * Description: This routine is called for all events and menu selection * that are not handled by this program. Like the name says * it ignores them. * * * Inputs: None * * Outputs: None * * External Refs: * * Entry Points: * ******************************************************************************* rts EndP ******************************************************************************* * DoQuit PROC * * Description: This routine stores a non-zero value in the quit flag to * notify the event loop that the user wants to stop the * program. * * * Inputs: None * * Outputs: None * * External Refs: * * Entry Points: * ******************************************************************************* With Globals lda #1 sta QuitFlag rts EndP EJECT ******************************************************************************* * DoAdd PROC * * Description: Demonstrates hot to Add an Item to an existing menu. * After adding the item this routine disables * the Add item and enable the delete item. * * * Inputs: None * * Outputs: None * * External Refs: * * Entry Points: * ******************************************************************************* With Globals PushLong #NewItem ; Pointer to the new Item PushWord #$FFFF ; Insert at end of the menu PushWord #$03 ; insert into menu 3 _InsertMItem PushWord #0 ; Call calc Menusize to get menu mgr to PushWord #0 ; recalc the menu size. PushWord #3 ; Use zeros for auto calculation _CalcMenuSize PushWord #AddMenuItem ; Now disable the Add item _DisableMItem PushWord #DelMenuItem ; and enable the delete item so the _EnableMItem ; user can get rid of item just added rts NewItem dc.b '--New Item\N318D',$0D EndP EJECT ******************************************************************************* * DoRemove PROC * * Description: Demonstrate how to remove an item. The menu item * for this routine is enabled only after AddItem adds * an item. This routine disables the delete item and * re-enables the add item * * * Inputs: None * * Outputs: None * * External Refs: * * Entry Points: * ******************************************************************************* With Globals PushWord #318 ; item ID of added item _DeleteMItem PushWord #0 ; recalc menu size with automatic PushWord #0 ; calculation by passing 0's PushWord #3 ; recalc menu 0 _CalcMenuSize PushWord #DelMenuItem ; disable this cause now, theres _DisableMItem ; nothing to remove PushWord #AddMenuItem ; enable this again, so the user _EnableMItem ; can try again rts EndP EJECT ******************************************************************************* * DoRemoveM PROC * * Description: Demonstrate how to remove an entire menu from the menu bar * * * Inputs: None * * Outputs: None * * External Refs: * * Entry Points: * ******************************************************************************* With Globals PushWord #4 ; menu number to remove _DeleteMenu _DrawMenuBar ; redraw the menu bar PushWord #DelAMenu ; disable this feature and enable Addmenu _DisableMItem PushWord #AddAMenu _EnableMItem rts EndP EJECT ******************************************************************************* * DoAddM PROC * * Description: Demonstrate how to add a menu to the menu bar. * * * Inputs: None * * Outputs: None * * External Refs: * * Entry Points: * ******************************************************************************* With Globals PushLong TestMHandle ; handle to the test menu we saved in InitApp PushWord #3 ; insert after menu 3 _InsertMenu _DrawMenuBar ; redraw the menu bar PushWord #AddAMenu ; and disable this menu option _DisableMItem PushWord #DelAMenu ; enable the option to delete this menu _EnableMItem rts EndP Include 'Menus.inits.aii' END